During R6 to R8 upgradation

Notes/Domino 8 Forum

Subject: During R6 to R8 upgradation

Feedback Type: Problem

Product Area: Designer Client

Technical Area: Functionality

Platform: Windows XP client

Release: 8.0

Reproducible: -Reproducibility-

Hi All,

I have a problem while upgrading notes from R6 to R8.

I had function by Name replaceStr.Its working fine in R6.But Showing error in R8.
code:
'this function will replace the find string in s1 with the replace string
Function replaceStr(s1 As String, find As String, replace As String) As String

Dim tmpStr As String
Dim pos As Integer

tmpStr = s1

While Instr(tmpStr, find) <> 0
pos = Instr(tmpStr, find) 'get the position of the find string

'create the new string
tmpStr = Left( tmpStr, pos - 1) + replace + Right( tmpStr, Len(s1) - pos)

Wend

replaceStr = tmpStr
End Function

Feedback number WEBB7J4878 created by ~Tanita Asanimaroden on 09/02/2008